100 ------------------------------
110 ? CHR$(125)
120 ? 
130 ? "ATMAS II patch, 5/20/1997"
140 ? 
150 ? "old version 1.0"
160 ? "new version 1.1 (patched)"
170 ? 
180 ? "Done by:"
190 ? 
200 ? "Freddy Offenga"
210 ? "P.O.Box 164"
220 ? "8800 AD  Franeker"
230 ? "The Netherlands"
240 ? 
250 ------------------------------
260 REM 
270 REM This program corrects
280 REM the STX zpage,Y bug
290 REM 
300 ------------------------------
310 DIM A$(40)
320 ? 
330 ? "Original Atmas II file :"
340 INPUT A$
350 ? 
360 ------------------------------
370 TRAP #IOER
380 OPEN #1,4,0,A$
390 BGET #1,$8000,9229
400 CLOSE #1
410 ------------------------------
420 REM check for right version
430 IF DPEEK($8000)<>$FFFF THEN GO# EXIT
440 IF DPEEK($8002)<>$4C00 THEN GO# EXIT
450 IF DPEEK($8004)<>$4CF5 THEN GO# EXIT
460 IF DPEEK($8106)<>$FFFF THEN GO# EXIT
470 IF DPEEK($8108)<>$2800 THEN GO# EXIT
480 IF DPEEK($810A)<>$4B00 THEN GO# EXIT
490 IF PEEK($8078)<>$11 THEN GO# EXIT
500 IF PEEK($807A)=$11 THEN GO# ALDON
510 IF PEEK($807A)<>$10 THEN GO# EXIT
520 DPOKE $A3C8,$96
530 POKE $807A,$11:REM VER 1.1
540 ------------------------------
550 ? "Updated Atmas II file  : "
560 INPUT A$
570 ? 
580 OPEN #1,8,0,A$
590 BPUT #1,$8000,9229
600 CLOSE #1
610 ------------------------------
620 ? "Update done."
630 END 
640 ------------------------------
650 # EXIT
660 ? "Unknown version of ATMAS!"
670 ? "Update failed."
680 END 
690 ------------------------------
700 # ALDON
710 ? "This version is already fixed!"
720 END 
730 ------------------------------
740 # IOER
750 ? "File error!"
760 END 
